object dlgSelectDir: TdlgSelectDir
  Left = 330
  Top = 138
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Select Drive and Directory'
  ClientHeight = 298
  ClientWidth = 314
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object dcbDrive: TDriveComboBox
    Left = 8
    Top = 8
    Width = 297
    Height = 19
    DirList = dlbFolder
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object dlbFolder: TDirectoryListBox
    Left = 8
    Top = 40
    Width = 297
    Height = 212
    IntegralHeight = True
    ItemHeight = 16
    TabOrder = 1
  end
  object btnOk: TBitBtn
    Left = 144
    Top = 264
    Width = 75
    Height = 25
    TabOrder = 2
    Kind = bkOK
  end
  object btnCancel: TBitBtn
    Left = 232
    Top = 264
    Width = 75
    Height = 25
    TabOrder = 3
    Kind = bkCancel
  end
end